extractor <- function(lllist, var.nms){
  tmp <- tmp.se <- list()
  for(i in var.nms){
    tmp.v <- tmp.se.v <- NULL
    for(j in 1:length(lllist)){
      if(i %in% names(coef(lllist[[j]]))){
        tmp.v <- append(tmp.v, coef(lllist[[j]])[i])
        tmp.se.v <- append(tmp.se.v, coef(summary(lllist[[j]]))[i, "Std. Error"])
      }
    }
    tmp[[i]] <- tmp.v
    tmp.se[[i]] <- tmp.se.v
  }
  return(list(coefs = tmp, ses = tmp.se))
}
